home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World 2006 September
/
PCWorld_2006-09_cd.bin
/
v cisle
/
hexer
/
mpth_17.exe
/
{app}
/
scripts
/
Extract strings.lng
< prev
next >
Wrap
Text File
|
2006-03-19
|
3KB
|
70 lines
option TITLE, "Extract strings from binary file"
LOCAL create_form
= set combo items
DEF CBITEMS <<
Ansi
Dos 8 Bit
Ascii 7 Bit
Macintosh
EBCDIC
Unicode Little Endian
Unicode Big Endian
Custom character set
Use character encoding of the editor file
>>
GuiCreate('FORM', 'dlgExtract', 'Left', 413, 'Top', 412, 'BorderStyle', GUI_BORDER_DIALOG, 'Caption', 'Extract strings from binary file', 'ClientHeight', 248, 'ClientWidth', 389, 'Position', GUI_FORMPOS_SCREENCENTER)
GuiCreate('BUTTON', 'dlgExtract.btnDo', 'Left', 304, 'Top', 12,'Width', 75, 'Height', 45, 'Caption', 'Start','Default', True, 'ModalResult', IDOK, 'OnClick', 'CHECK_SETTINGS')
GuiCreate('BUTTON', 'dlgExtract.btnClose', 'Left', 304, 'Top', 68,'Width', 75, 'Height',25,'Caption', 'Close','Cancel', True, 'ModalResult', IDCANCEL)
GuiCreate('GROUPBOX', 'dlgExtract.Group1', 'Left', 8, 'Top', 8,'Width', 285, 'Height', 233,'Caption', 'Options')
GuiCreate('STATIC', 'dlgExtract.Group1.s1', 'Left', 12, 'Top', 20,'Caption', 'Character encoding of the strings to extract:')
GuiCreate('STATIC', 'dlgExtract.Group1.s2', 'Left', 12, 'Top', 72,'Caption', 'Minimum character length of strings to be listed:')
GuiCreate('STATIC', 'dlgExtract.Group1.s3', 'Left', 12, 'Top', 100,'Caption', 'Accepted characters:')
GuiCreate('STATIC', 'dlgExtract.Group1.s4', 'Left', 12, 'Top', 192,'Caption', 'Strings/page:')
GuiCreate('STATIC', 'dlgExtract.Group1.s5', 'Left', 12, 'Top', 150,'Caption', 'Words must start with one of those characters:')
GuiCreate('COMBOBOX', 'dlgExtract.Group1.cbEncoding', 'Left', 12, 'Top', 36, 'Width', 261, 'Style', GUI_COMBOSTYLE_DROPDOWNLIST, 'Items', CBITEMS)
GuiCreate('EDIT', 'dlgExtract.Group1.edMinLen', 'Left', 244, 'Top', 70, 'Width', 29, 'Text', Text(minlen))
GuiCreate('EDIT', 'dlgExtract.Group1.edChars', 'Left', 12, 'Top', 120, 'Width', 261, 'Text', Text(charstouse))
GuiCreate('EDIT', 'dlgExtract.Group1.edStart', 'Left', 12, 'Top', 165, 'Width', 261, 'Text', Text(charstostart))
GuiCreate('EDIT', 'dlgExtract.Group1.edLimit', 'Left', 82, 'Top', 190, 'Width', 29, 'Text', Text(limit))
GuiCreate('BUTTON', 'dlgExtract.Group1.btnCharsInfo', 'Left', 120, 'Top', 94, 'Width', 25, 'Height', 21, 'Caption', '?', 'OnClick', 'showcharsinfo')
GuiCreate('CHECKBOX', 'dlgExtract.Group1.cbCurPos', 'Left', 140, 'Top', 192, 'Width', 145, 'Caption', 'Start at current position')
GuiCreate('CHECKBOX', 'dlgExtract.Group1.cbAlphaSort', 'Left', 140, 'Top', 212, 'Width', 145, 'Caption', 'Alphanumeric sorting', 'Checked', alphasort)
ENDLOCAL
DEF __INVCHAR__ 'Invalid character: '
DEF __INVNUM__ 'Not a numeric value: '
DEF __INFOAC__ <<
Only characters listed here are accepted as "string characters".
The question mark is used to escape some special characters:
?QM = question mark, ?HT = horizontal tab,
?VT = vertical tab, ?LF = line feed,
?FF = form feed, ?CR = carriage return,
?SP = space, ?X<hex> = four digit hex value of a character to be used
>>
DEF __INFOACT__ 'Info about accepted characters'
@@__lng_end